home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C/C++ Users Group Library 1996 July
/
C-C++ Users Group Library July 1996.iso
/
listings
/
v_02_03
/
2n03024a
< prev
next >
Wrap
Text File
|
1991-01-09
|
378b
|
24 lines
{*
* The Standard C library function memcmp implemented
* in Pascal.
*}
function memcmp(var s1, s2; n : word) : integer;
type
bytes = array [0 .. 65534] of byte;
var
i : word;
cmp : integer;
begin
cmp := 0;
i := 0;
while (i < n) and (cmp = 0) do
begin
cmp := bytes(s1)[i] - bytes(s2)[i];
i := i + 1;
end;
memcmp := cmp;
end;